program Hello

uses Actors;

procedure FutureSay(s:string);
begin
  writeln(s);
end;


begin

  hello := Action(FutureSay, 'Hello World');

  Send(hello);

  Wait(hello);

  WriteLn('Pressione Enter para sair');

  ReadLn;

end.